/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / ilisp / ilisp-cl.elc.z / ilisp-cl.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 33 |on Mon M|ar  9 13|
|00000040| 3a 30 33 3a 35 30 20 31 | 39 39 38 0a 3b 3b 3b 20 |:03:50 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 69 6c 69 73 |s-20.3/l|isp/ilis|
|000000a0| 70 2f 69 6c 69 73 70 2d | 63 6c 2e 65 6c 0a 3b 3b |p/ilisp-|cl.el.;;|
|000000b0| 3b 20 65 6d 61 63 73 20 | 76 65 72 73 69 6f 6e 20 |; emacs |version |
|000000c0| 32 30 2e 34 20 22 45 6d | 65 72 61 6c 64 22 20 58 |20.4 "Em|erald" X|
|000000d0| 45 6d 61 63 73 20 20 4c | 75 63 69 64 2e 0a 3b 3b |Emacs  L|ucid..;;|
|000000e0| 3b 20 62 79 74 65 63 6f | 6d 70 20 76 65 72 73 69 |; byteco|mp versi|
|000000f0| 6f 6e 20 32 2e 32 35 20 | 58 45 6d 61 63 73 3b 20 |on 2.25 |XEmacs; |
|00000100| 32 32 2d 4d 61 72 2d 39 | 36 2e 0a 3b 3b 3b 20 6f |22-Mar-9|6..;;; o|
|00000110| 70 74 69 6d 69 7a 61 74 | 69 6f 6e 20 69 73 20 6f |ptimizat|ion is o|
|00000120| 6e 2e 0a 3b 3b 3b 20 74 | 68 69 73 20 66 69 6c 65 |n..;;; t|his file|
|00000130| 20 75 73 65 73 20 6f 70 | 63 6f 64 65 73 20 77 68 | uses op|codes wh|
|00000140| 69 63 68 20 64 6f 20 6e | 6f 74 20 65 78 69 73 74 |ich do n|ot exist|
|00000150| 20 69 6e 20 45 6d 61 63 | 73 20 31 39 2e 0a 0a 28 | in Emac|s 19...(|
|00000160| 69 66 20 28 61 6e 64 20 | 28 62 6f 75 6e 64 70 20 |if (and |(boundp |
|00000170| 27 65 6d 61 63 73 2d 76 | 65 72 73 69 6f 6e 29 0a |'emacs-v|ersion).|
|00000180| 09 20 28 6f 72 20 28 61 | 6e 64 20 28 62 6f 75 6e |. (or (a|nd (boun|
|00000190| 64 70 20 27 65 70 6f 63 | 68 3a 3a 76 65 72 73 69 |dp 'epoc|h::versi|
|000001a0| 6f 6e 29 20 65 70 6f 63 | 68 3a 3a 76 65 72 73 69 |on) epoc|h::versi|
|000001b0| 6f 6e 29 0a 09 20 20 20 | 20 20 28 73 74 72 69 6e |on)..   |  (strin|
|000001c0| 67 2d 6c 65 73 73 70 20 | 65 6d 61 63 73 2d 76 65 |g-lessp |emacs-ve|
|000001d0| 72 73 69 6f 6e 20 22 32 | 30 22 29 29 29 0a 20 20 |rsion "2|0"))).  |
|000001e0| 20 20 28 65 72 72 6f 72 | 20 22 60 69 6c 69 73 70 |  (error| "`ilisp|
|000001f0| 2d 63 6c 2e 65 6c 27 20 | 77 61 73 20 63 6f 6d 70 |-cl.el' |was comp|
|00000200| 69 6c 65 64 20 66 6f 72 | 20 45 6d 61 63 73 20 32 |iled for| Emacs 2|
|00000210| 30 22 29 29 0a 0a 28 6f | 72 20 28 62 6f 75 6e 64 |0"))..(o|r (bound|
|00000220| 70 20 27 63 75 72 72 65 | 6e 74 2d 6c 6f 61 64 2d |p 'curre|nt-load-|
|00000230| 6c 69 73 74 29 20 28 73 | 65 74 71 20 63 75 72 72 |list) (s|etq curr|
|00000240| 65 6e 74 2d 6c 6f 61 64 | 2d 6c 69 73 74 20 6e 69 |ent-load|-list ni|
|00000250| 6c 29 29 0a 0a 0a 28 62 | 79 74 65 2d 63 6f 64 65 |l))...(b|yte-code|
|00000260| 20 22 c0 c1 21 ac 82 c2 | 11 c1 0b 42 13 c0 c4 21 | "..!...|...B...!|
|00000270| ac 82 c5 14 c4 0b 42 13 | c0 87 22 20 5b 62 6f 75 |......B.|.." [bou|
|00000280| 6e 64 70 20 69 6c 69 73 | 70 2d 63 6c 2d 69 6c 69 |ndp ilis|p-cl-ili|
|00000290| 73 70 2d 70 61 63 6b 61 | 67 65 2d 66 69 6c 65 20 |sp-packa|ge-file |
|000002a0| 22 69 6c 69 73 70 2d 70 | 6b 67 2e 6c 69 73 70 22 |"ilisp-p|kg.lisp"|
|000002b0| 20 63 75 72 72 65 6e 74 | 2d 6c 6f 61 64 2d 6c 69 | current|-load-li|
|000002c0| 73 74 20 69 6c 69 73 70 | 2d 63 6c 69 73 70 2d 69 |st ilisp|-clisp-i|
|000002d0| 6e 69 74 2d 66 69 6c 65 | 20 22 63 6c 2d 69 6c 69 |nit-file| "cl-ili|
|000002e0| 73 70 2e 6c 69 73 70 22 | 5d 20 32 29 0a 23 40 32 |sp.lisp"|] 2).#@2|
|000002f0| 39 20 2a 49 6e 66 65 72 | 69 6f 72 20 43 6f 6d 6d |9 *Infer|ior Comm|
|00000300| 6f 6e 20 4c 49 53 50 20 | 68 6f 6f 6b 2e 1f 0a 28 |on LISP |hook...(|
|00000310| 64 65 66 76 61 72 20 63 | 6c 69 73 70 2d 68 6f 6f |defvar c|lisp-hoo|
|00000320| 6b 20 6e 69 6c 20 28 23 | 24 20 2e 20 2d 37 35 34 |k nil (#|$ . -754|
|00000330| 29 29 0a 23 40 34 30 20 | 2a 49 6e 66 65 72 69 6f |)).#@40 |*Inferio|
|00000340| 72 20 43 6f 6d 6d 6f 6e | 20 4c 49 53 50 20 64 65 |r Common| LISP de|
|00000350| 66 61 75 6c 74 20 70 72 | 6f 67 72 61 6d 2e 1f 0a |fault pr|ogram...|
|00000360| 28 64 65 66 76 61 72 20 | 63 6c 69 73 70 2d 70 72 |(defvar |clisp-pr|
|00000370| 6f 67 72 61 6d 20 6e 69 | 6c 20 28 23 24 20 2e 20 |ogram ni|l (#$ . |
|00000380| 2d 38 32 34 29 29 0a 23 | 40 34 32 20 53 65 74 20 |-824)).#|@42 Set |
|00000390| 75 70 20 66 6f 72 20 69 | 6e 74 65 72 61 63 74 69 |up for i|nteracti|
|000003a0| 6e 67 20 77 69 74 68 20 | 43 6f 6d 6d 6f 6e 20 4c |ng with |Common L|
|000003b0| 49 53 50 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |ISP...(d|efalias |
|000003c0| 27 73 65 74 75 70 2d 63 | 6c 69 73 70 20 23 5b 28 |'setup-c|lisp #[(|
|000003d0| 62 75 66 66 65 72 29 20 | 22 c0 09 21 88 c2 13 c4 |buffer) |"..!....|
|000003e0| c5 0e 06 5c 22 88 c4 c7 | 0e 08 5c 22 88 c9 16 5c |...\"...|..\"...\|
|000003f0| 6e cb 16 0c cd 16 0e cf | 16 10 d1 16 12 d3 16 14 |n.......|........|
|00000400| d5 16 16 d7 16 18 d9 16 | 1a db 16 1c dd 16 1e df |........|........|
|00000410| 16 20 e1 16 5c 22 e3 16 | 24 e5 16 26 e7 16 28 e9 |. ..\"..|$..&..(.|
|00000420| 16 2a eb 16 2c ed 16 2e | ef 16 30 f1 16 32 f3 16 |.*..,...|..0..2..|
|00000430| 34 f5 16 36 f7 16 38 f9 | 16 3a fb 16 3c fd 16 3e |4..6..8.|.:..<..>|
|00000440| ff 16 40 81 41 00 16 42 | 0e 43 ae 82 0e 44 16 44 |..@.A..B|.C...D.D|
|00000450| c7 0e 45 42 16 45 81 46 | 00 81 47 00 21 87 22 20 |..EB.E.F|..G.!." |
|00000460| 5b 73 65 74 75 70 2d 69 | 6c 69 73 70 20 62 75 66 |[setup-i|lisp buf|
|00000470| 66 65 72 20 22 28 6f 72 | 20 28 61 6e 64 20 28 6c |fer "(or| (and (l|
|00000480| 6f 61 64 20 5c 22 25 73 | 5c 22 20 3a 69 66 2d 64 |oad \"%s|\" :if-d|
|00000490| 6f 65 73 2d 6e 6f 74 2d | 65 78 69 73 74 20 6e 69 |oes-not-|exist ni|
|000004a0| 6c 29 20 74 29 5c 6e 20 | 20 20 20 20 20 20 20 20 |l) t)\n |        |
|000004b0| 20 20 20 20 28 61 6e 64 | 20 28 6c 6f 61 64 20 5c |    (and| (load \|
|000004c0| 22 25 73 5c 22 20 3a 69 | 66 2d 64 6f 65 73 2d 6e |"%s\" :i|f-does-n|
|000004d0| 6f 74 2d 65 78 69 73 74 | 20 6e 69 6c 29 20 74 29 |ot-exist| nil) t)|
|000004e0| 29 22 20 69 6c 69 73 70 | 2d 6c 6f 61 64 2d 6f 72 |)" ilisp|-load-or|
|000004f0| 2d 73 65 6e 64 2d 63 6f | 6d 6d 61 6e 64 20 69 6c |-send-co|mmand il|
|00000500| 69 73 70 2d 6c 6f 61 64 | 2d 69 6e 69 74 20 69 6c |isp-load|-init il|
|00000510| 69 73 70 2d 70 61 63 6b | 61 67 65 2d 6b 6c 75 64 |isp-pack|age-klud|
|00000520| 67 65 20 69 6c 69 73 70 | 2d 63 6c 2d 69 6c 69 73 |ge ilisp|-cl-ilis|
|00000530| 70 2d 70 61 63 6b 61 67 | 65 2d 66 69 6c 65 20 63 |p-packag|e-file c|
|00000540| 6c 69 73 70 20 69 6c 69 | 73 70 2d 63 6c 69 73 70 |lisp ili|sp-clisp|
|00000550| 2d 69 6e 69 74 2d 66 69 | 6c 65 20 22 5e 5b 20 09 |-init-fi|le "^[ .|
|00000560| 5d 2a 28 69 6e 2d 70 61 | 63 6b 61 67 65 5b 20 09 |]*(in-pa|ckage[ .|
|00000570| 5c 6e 5d 2a 22 20 69 6c | 69 73 70 2d 70 61 63 6b |\n]*" il|isp-pack|
|00000580| 61 67 65 2d 72 65 67 65 | 78 70 20 22 28 6c 65 74 |age-rege|xp "(let|
|00000590| 20 28 28 2a 70 61 63 6b | 61 67 65 2a 20 2a 70 61 | ((*pack|age* *pa|
|000005a0| 63 6b 61 67 65 2a 29 29 | 20 25 73 20 28 70 61 63 |ckage*))| %s (pac|
|000005b0| 6b 61 67 65 2d 6e 61 6d | 65 20 2a 70 61 63 6b 61 |kage-nam|e *packa|
|000005c0| 67 65 2a 29 29 22 20 69 | 6c 69 73 70 2d 70 61 63 |ge*))" i|lisp-pac|
|000005d0| 6b 61 67 65 2d 63 6f 6d | 6d 61 6e 64 20 22 28 70 |kage-com|mand "(p|
|000005e0| 61 63 6b 61 67 65 2d 6e | 61 6d 65 20 2a 70 61 63 |ackage-n|ame *pac|
|000005f0| 6b 61 67 65 2a 29 22 20 | 69 6c 69 73 70 2d 70 61 |kage*)" |ilisp-pa|
|00000600| 63 6b 61 67 65 2d 6e 61 | 6d 65 2d 63 6f 6d 6d 61 |ckage-na|me-comma|
|00000610| 6e 64 20 22 28 69 6e 2d | 70 61 63 6b 61 67 65 20 |nd "(in-|package |
|00000620| 5c 22 25 73 5c 22 29 22 | 20 69 6c 69 73 70 2d 69 |\"%s\")"| ilisp-i|
|00000630| 6e 2d 70 61 63 6b 61 67 | 65 2d 63 6f 6d 6d 61 6e |n-packag|e-comman|
|00000640| 64 20 22 2a 22 20 69 6c | 69 73 70 2d 6c 61 73 74 |d "*" il|isp-last|
|00000650| 2d 63 6f 6d 6d 61 6e 64 | 20 22 28 70 72 6f 67 6e |-command| "(progn|
|00000660| 20 28 49 4c 49 53 50 3a | 69 6c 69 73 70 2d 73 61 | (ILISP:|ilisp-sa|
|00000670| 76 65 29 20 25 73 5c 6e | 29 22 20 69 6c 69 73 70 |ve) %s\n|)" ilisp|
|00000680| 2d 73 61 76 65 2d 63 6f | 6d 6d 61 6e 64 20 22 28 |-save-co|mmand "(|
|00000690| 49 4c 49 53 50 3a 69 6c | 69 73 70 2d 72 65 73 74 |ILISP:il|isp-rest|
|000006a0| 6f 72 65 29 22 20 69 6c | 69 73 70 2d 72 65 73 74 |ore)" il|isp-rest|
|000006b0| 6f 72 65 2d 63 6f 6d 6d | 61 6e 64 20 22 28 70 72 |ore-comm|and "(pr|
|000006c0| 6f 67 6e 20 25 73 5c 6e | 29 22 20 69 6c 69 73 70 |ogn %s\n|)" ilisp|
|000006d0| 2d 62 6c 6f 63 6b 2d 63 | 6f 6d 6d 61 6e 64 20 22 |-block-c|ommand "|
|000006e0| 28 49 4c 49 53 50 3a 69 | 6c 69 73 70 2d 65 76 61 |(ILISP:i|lisp-eva|
|000006f0| 6c 20 5c 22 25 73 5c 22 | 20 5c 22 25 73 5c 22 20 |l \"%s\"| \"%s\" |
|00000700| 5c 22 25 73 5c 22 29 22 | 20 69 6c 69 73 70 2d 65 |\"%s\")"| ilisp-e|
|00000710| 76 61 6c 2d 63 6f 6d 6d | 61 6e 64 20 22 28 64 65 |val-comm|and "(de|
|00000720| 66 76 61 72 5b 20 09 5c | 6e 5d 22 20 69 6c 69 73 |fvar[ .\|n]" ilis|
|00000730| 70 2d 64 65 66 76 61 72 | 2d 72 65 67 65 78 70 20 |p-defvar|-regexp |
|00000740| 22 28 49 4c 49 53 50 3a | 69 6c 69 73 70 2d 65 76 |"(ILISP:|ilisp-ev|
|00000750| 61 6c 20 5c 22 28 6c 65 | 74 20 28 28 66 6f 72 6d |al \"(le|t ((form|
|00000760| 20 27 25 73 29 29 20 28 | 70 72 6f 67 6e 20 28 6d | '%s)) (|progn (m|
|00000770| 61 6b 75 6e 62 6f 75 6e | 64 20 28 73 65 63 6f 6e |akunboun|d (secon|
|00000780| 64 20 66 6f 72 6d 29 29 | 20 28 65 76 61 6c 20 66 |d form))| (eval f|
|00000790| 6f 72 6d 29 29 29 5c 22 | 20 5c 22 25 73 5c 22 20 |orm)))\"| \"%s\" |
|000007a0| 5c 22 25 73 5c 22 29 22 | 20 69 6c 69 73 70 2d 64 |\"%s\")"| ilisp-d|
|000007b0| 65 66 76 61 72 2d 63 6f | 6d 6d 61 6e 64 20 22 28 |efvar-co|mmand "(|
|000007c0| 49 4c 49 53 50 3a 69 6c | 69 73 70 2d 63 6f 6d 70 |ILISP:il|isp-comp|
|000007d0| 69 6c 65 20 5c 22 25 73 | 5c 22 20 5c 22 25 73 5c |ile \"%s|\" \"%s\|
|000007e0| 22 20 5c 22 25 73 5c 22 | 29 22 20 69 6c 69 73 70 |" \"%s\"|)" ilisp|
|000007f0| 2d 63 6f 6d 70 69 6c 65 | 2d 63 6f 6d 6d 61 6e 64 |-compile|-command|
|00000800| 20 22 28 49 4c 49 53 50 | 3a 69 6c 69 73 70 2d 64 | "(ILISP|:ilisp-d|
|00000810| 65 73 63 72 69 62 65 20 | 5c 22 25 73 5c 22 20 5c |escribe |\"%s\" \|
|00000820| 22 25 73 5c 22 29 22 20 | 69 6c 69 73 70 2d 64 65 |"%s\")" |ilisp-de|
|00000830| 73 63 72 69 62 65 2d 63 | 6f 6d 6d 61 6e 64 20 22 |scribe-c|ommand "|
|00000840| 28 49 4c 49 53 50 3a 69 | 6c 69 73 70 2d 69 6e 73 |(ILISP:i|lisp-ins|
|00000850| 70 65 63 74 20 5c 22 25 | 73 5c 22 20 5c 22 25 73 |pect \"%|s\" \"%s|
|00000860| 5c 22 29 22 20 69 6c 69 | 73 70 2d 69 6e 73 70 65 |\")" ili|sp-inspe|
|00000870| 63 74 2d 63 6f 6d 6d 61 | 6e 64 20 22 28 49 4c 49 |ct-comma|nd "(ILI|
|00000880| 53 50 3a 69 6c 69 73 70 | 2d 61 72 67 6c 69 73 74 |SP:ilisp|-arglist|
|00000890| 20 5c 22 25 73 5c 22 20 | 5c 22 25 73 5c 22 29 22 | \"%s\" |\"%s\")"|
|000008a0| 20 69 6c 69 73 70 2d 61 | 72 67 6c 69 73 74 2d 63 | ilisp-a|rglist-c|
|000008b0| 6f 6d 6d 61 6e 64 20 28 | 28 22 66 75 6e 63 74 69 |ommand (|("functi|
|000008c0| 6f 6e 22 29 20 28 22 76 | 61 72 69 61 62 6c 65 22 |on") ("v|ariable"|
|000008d0| 29 20 28 22 73 74 72 75 | 63 74 75 72 65 22 29 20 |) ("stru|cture") |
|000008e0| 28 22 74 79 70 65 22 29 | 20 28 22 73 65 74 66 22 |("type")| ("setf"|
|000008f0| 29 20 28 22 63 6c 61 73 | 73 22 29 20 28 22 28 71 |) ("clas|s") ("(q|
|00000900| 75 61 6c 69 66 69 65 72 | 73 2a 20 28 63 6c 61 73 |ualifier|s* (clas|
|00000910| 73 20 2e 2e 2e 29 29 22 | 29 29 20 69 6c 69 73 70 |s ...))"|)) ilisp|
|00000920| 2d 64 6f 63 75 6d 65 6e | 74 61 74 69 6f 6e 2d 74 |-documen|tation-t|
|00000930| 79 70 65 73 20 22 28 49 | 4c 49 53 50 3a 69 6c 69 |ypes "(I|LISP:ili|
|00000940| 73 70 2d 64 6f 63 75 6d | 65 6e 74 61 74 69 6f 6e |sp-docum|entation|
|00000950| 20 5c 22 25 73 5c 22 20 | 5c 22 25 73 5c 22 20 5c | \"%s\" |\"%s\" \|
|00000960| 22 25 73 5c 22 29 22 20 | 69 6c 69 73 70 2d 64 6f |"%s\")" |ilisp-do|
|00000970| 63 75 6d 65 6e 74 61 74 | 69 6f 6e 2d 63 6f 6d 6d |cumentat|ion-comm|
|00000980| 61 6e 64 20 22 28 49 4c | 49 53 50 3a 69 6c 69 73 |and "(IL|ISP:ilis|
|00000990| 70 2d 6d 61 63 72 6f 65 | 78 70 61 6e 64 2d 31 20 |p-macroe|xpand-1 |
|000009a0| 5c 22 25 73 5c 22 20 5c | 22 25 73 5c 22 29 22 20 |\"%s\" \|"%s\")" |
|000009b0| 69 6c 69 73 70 2d 6d 61 | 63 72 6f 65 78 70 61 6e |ilisp-ma|croexpan|
|000009c0| 64 2d 31 2d 63 6f 6d 6d | 61 6e 64 20 22 28 49 4c |d-1-comm|and "(IL|
|000009d0| 49 53 50 3a 69 6c 69 73 | 70 2d 6d 61 63 72 6f 65 |ISP:ilis|p-macroe|
|000009e0| 78 70 61 6e 64 20 5c 22 | 25 73 5c 22 20 5c 22 25 |xpand \"|%s\" \"%|
|000009f0| 73 5c 22 29 22 20 69 6c | 69 73 70 2d 6d 61 63 72 |s\")" il|isp-macr|
|00000a00| 6f 65 78 70 61 6e 64 2d | 63 6f 6d 6d 61 6e 64 20 |oexpand-|command |
|00000a10| 22 28 49 4c 49 53 50 3a | 69 6c 69 73 70 2d 6d 61 |"(ILISP:|ilisp-ma|
|00000a20| 74 63 68 69 6e 67 2d 73 | 79 6d 62 6f 6c 73 20 5c |tching-s|ymbols \|
|00000a30| 22 25 73 5c 22 20 5c 22 | 25 73 5c 22 20 25 73 20 |"%s\" \"|%s\" %s |
|00000a40| 25 73 20 25 73 29 22 20 | 69 6c 69 73 70 2d 63 6f |%s %s)" |ilisp-co|
|00000a50| 6d 70 6c 65 74 65 2d 63 | 6f 6d 6d 61 6e 64 20 6c |mplete-c|ommand l|
|00000a60| 69 73 70 2d 6c 6f 63 61 | 74 65 2d 63 6c 69 73 70 |isp-loca|te-clisp|
|00000a70| 20 69 6c 69 73 70 2d 6c | 6f 63 61 74 6f 72 20 28 | ilisp-l|ocator (|
|00000a80| 28 22 66 75 6e 63 74 69 | 6f 6e 22 29 20 28 22 6d |("functi|on") ("m|
|00000a90| 61 63 72 6f 22 29 20 28 | 22 76 61 72 69 61 62 6c |acro") (|"variabl|
|00000aa0| 65 22 29 20 28 22 73 74 | 72 75 63 74 75 72 65 22 |e") ("st|ructure"|
|00000ab0| 29 20 28 22 74 79 70 65 | 22 29 20 28 22 73 65 74 |) ("type|") ("set|
|00000ac0| 66 22 29 20 28 22 63 6c | 61 73 73 22 29 20 28 22 |f") ("cl|ass") ("|
|00000ad0| 28 71 75 61 6c 69 66 69 | 65 72 73 2a 20 28 63 6c |(qualifi|ers* (cl|
|00000ae0| 61 73 73 20 2e 2e 2e 29 | 29 22 29 29 20 69 6c 69 |ass ...)|)")) ili|
|00000af0| 73 70 2d 73 6f 75 72 63 | 65 2d 74 79 70 65 73 20 |sp-sourc|e-types |
|00000b00| 22 28 49 4c 49 53 50 3a | 69 6c 69 73 70 2d 63 61 |"(ILISP:|ilisp-ca|
|00000b10| 6c 6c 65 72 73 20 5c 22 | 25 73 5c 22 20 5c 22 25 |llers \"|%s\" \"%|
|00000b20| 73 5c 22 29 22 20 69 6c | 69 73 70 2d 63 61 6c 6c |s\")" il|isp-call|
|00000b30| 65 72 73 2d 63 6f 6d 6d | 61 6e 64 20 22 28 49 4c |ers-comm|and "(IL|
|00000b40| 49 53 50 3a 69 6c 69 73 | 70 2d 74 72 61 63 65 20 |ISP:ilis|p-trace |
|00000b50| 5c 22 25 73 5c 22 20 5c | 22 25 73 5c 22 20 5c 22 |\"%s\" \|"%s\" \"|
|00000b60| 25 73 5c 22 29 22 20 69 | 6c 69 73 70 2d 74 72 61 |%s\")" i|lisp-tra|
|00000b70| 63 65 2d 63 6f 6d 6d 61 | 6e 64 20 22 28 49 4c 49 |ce-comma|nd "(ILI|
|00000b80| 53 50 3a 69 6c 69 73 70 | 2d 75 6e 74 72 61 63 65 |SP:ilisp|-untrace|
|00000b90| 20 5c 22 25 73 5c 22 20 | 5c 22 25 73 5c 22 29 22 | \"%s\" |\"%s\")"|
|00000ba0| 20 69 6c 69 73 70 2d 75 | 6e 74 72 61 63 65 2d 63 | ilisp-u|ntrace-c|
|00000bb0| 6f 6d 6d 61 6e 64 20 22 | 28 6e 61 6d 65 73 74 72 |ommand "|(namestr|
|00000bc0| 69 6e 67 20 2a 64 65 66 | 61 75 6c 74 2d 70 61 74 |ing *def|ault-pat|
|00000bd0| 68 6e 61 6d 65 2d 64 65 | 66 61 75 6c 74 73 2a 29 |hname-de|faults*)|
|00000be0| 22 20 69 6c 69 73 70 2d | 64 69 72 65 63 74 6f 72 |" ilisp-|director|
|00000bf0| 79 2d 63 6f 6d 6d 61 6e | 64 20 22 28 73 65 74 71 |y-comman|d "(setq|
|00000c00| 20 2a 64 65 66 61 75 6c | 74 2d 70 61 74 68 6e 61 | *defaul|t-pathna|
|00000c10| 6d 65 2d 64 65 66 61 75 | 6c 74 73 2a 20 28 70 61 |me-defau|lts* (pa|
|00000c20| 72 73 65 2d 6e 61 6d 65 | 73 74 72 69 6e 67 20 5c |rse-name|string \|
|00000c30| 22 25 73 5c 22 29 29 22 | 20 69 6c 69 73 70 2d 73 |"%s\"))"| ilisp-s|
|00000c40| 65 74 2d 64 69 72 65 63 | 74 6f 72 79 2d 63 6f 6d |et-direc|tory-com|
|00000c50| 6d 61 6e 64 20 22 28 6c | 6f 61 64 20 5c 22 25 73 |mand "(l|oad \"%s|
|00000c60| 5c 22 29 22 20 69 6c 69 | 73 70 2d 6c 6f 61 64 2d |\")" ili|sp-load-|
|00000c70| 63 6f 6d 6d 61 6e 64 20 | 22 28 49 4c 49 53 50 3a |command |"(ILISP:|
|00000c80| 69 6c 69 73 70 2d 63 6f | 6d 70 69 6c 65 2d 66 69 |ilisp-co|mpile-fi|
|00000c90| 6c 65 20 5c 22 25 73 5c | 22 20 5c 22 25 73 5c 22 |le \"%s\|" \"%s\"|
|00000ca0| 29 22 20 69 6c 69 73 70 | 2d 63 6f 6d 70 69 6c 65 |)" ilisp|-compile|
|00000cb0| 2d 66 69 6c 65 2d 63 6f | 6d 6d 61 6e 64 20 63 6c |-file-co|mmand cl|
|00000cc0| 69 73 70 2d 70 72 6f 67 | 72 61 6d 20 69 6c 69 73 |isp-prog|ram ilis|
|00000cd0| 70 2d 70 72 6f 67 72 61 | 6d 20 69 6c 69 73 70 2d |p-progra|m ilisp-|
|00000ce0| 64 69 61 6c 65 63 74 20 | 72 75 6e 2d 68 6f 6f 6b |dialect |run-hook|
|00000cf0| 73 20 63 6c 69 73 70 2d | 68 6f 6f 6b 5d 20 33 20 |s clisp-|hook] 3 |
|00000d00| 28 23 24 20 2e 20 39 30 | 38 29 5d 29 0a 23 40 37 |(#$ . 90|8)]).#@7|
|00000d10| 38 20 43 72 65 61 74 65 | 20 61 6e 20 69 6e 66 65 |8 Create| an infe|
|00000d20| 72 69 6f 72 20 43 6f 6d | 6d 6f 6e 20 4c 49 53 50 |rior Com|mon LISP|
|00000d30| 2e 20 20 57 69 74 68 20 | 70 72 65 66 69 78 2c 20 |.  With |prefix, |
|00000d40| 70 72 6f 6d 70 74 20 66 | 6f 72 20 62 75 66 66 65 |prompt f|or buffe|
|00000d50| 72 20 61 6e 64 20 70 72 | 6f 67 72 61 6d 2e 1f 0a |r and pr|ogram...|
|00000d60| 28 64 65 66 61 6c 69 61 | 73 20 27 63 6c 69 73 70 |(defalia|s 'clisp|
|00000d70| 20 23 5b 28 26 6f 70 74 | 69 6f 6e 61 6c 20 62 75 | #[(&opt|ional bu|
|00000d80| 66 66 65 72 20 70 72 6f | 67 72 61 6d 29 20 22 c0 |ffer pro|gram) ".|
|00000d90| 09 ae 81 c2 0b c4 23 88 | 0d 89 16 06 87 22 20 5b |......#.|....." [|
|00000da0| 69 6c 69 73 70 2d 73 74 | 61 72 74 2d 64 69 61 6c |ilisp-st|art-dial|
|00000db0| 65 63 74 20 62 75 66 66 | 65 72 20 22 63 6c 69 73 |ect buff|er "clis|
|00000dc0| 70 22 20 70 72 6f 67 72 | 61 6d 20 73 65 74 75 70 |p" progr|am setup|
|00000dd0| 2d 63 6c 69 73 70 20 69 | 6c 69 73 70 2d 70 72 6f |-clisp i|lisp-pro|
|00000de0| 67 72 61 6d 20 63 6c 69 | 73 70 2d 70 72 6f 67 72 |gram cli|sp-progr|
|00000df0| 61 6d 5d 20 34 20 28 23 | 24 20 2e 20 33 33 34 36 |am] 4 (#|$ . 3346|
|00000e00| 29 20 28 6c 69 73 74 20 | 6e 69 6c 20 6e 69 6c 29 |) (list |nil nil)|
|00000e10| 5d 29 0a 28 6c 69 73 70 | 2d 61 64 64 2d 64 69 61 |]).(lisp|-add-dia|
|00000e20| 6c 65 63 74 20 22 63 6c | 69 73 70 22 29 0a       |lect "cl|isp").  |
+--------+-------------------------+-------------------------+--------+--------+